VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Obj3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim bl As Date
Public endl As Date
Public id As String
Public g As Integer
Public itemTot As Integer
Dim its() As XbrlItem
Property Let begl(d As Date)

bl = d
g = lDiff("d", bl, endl) + 1

End Property
Property Get begl() As Date

begl = bl

End Property
Property Get items() As XbrlItem()

items = its

End Property
Sub initItems()

ReDim its(500) As XbrlItem

End Sub

Sub addItem(refId As Integer, val As Single)

itemTot = itemTot + 1
Set its(itemTot) = New XbrlItem
Set its(itemTot).xbrlRef = Xbrl.items(refId)
its(itemTot).value = val

End Sub
Sub shrinkItems()

ReDim Preserve its(itemTot)

Utilities.quickSort its, 1, itemTot, 2


End Sub
Property Get compkey(keyNo As Integer) As Variant

Select Case keyNo
    Case 0
        compkey = endl
    Case 5
        compkey = endl
    Case 11
        compkey = g
    Case 15
        compkey = id
End Select

End Property

